home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / Tools / mpeg_stat-2.2 / to_hist < prev    next >
Encoding:
Text File  |  1995-05-10  |  221 b   |  16 lines
  1. #!/usr/bin/perl
  2. $prt=0;
  3. while(<>) {
  4.     if ($_ =~ /Number/) {
  5.     $prt=1;
  6.     } else {
  7.     if (($prt==1) && ($_ =~ /Block/)) {
  8.         $prt=0;
  9.         print " ";
  10.     } else {        
  11.         if ($prt==1) {    
  12.         print $_;    
  13.         }}               
  14.     }
  15. }
  16.